home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / ant / antdesig / material.bas < prev    next >
BASIC Source File  |  1986-08-02  |  502b  |  15 lines
  1. 10 CLS
  2. 20 INPUT "OVERALL DIMENSION OF DIPOLE IN MM :- ";DO
  3. 30 INPUT "INTERNAL DIMENSION OF FOLDED DIPOLE IN MM :- ";T :R=T/2
  4. 40 INPUT "DIAMETER OF ELEMENT :- ";DE
  5. 50 A=2*(DO-2*(DE+R))
  6. 60 C=2*22/7*(R+DE)
  7. 70 D=A+C
  8. 80 PRINT "TOTAL LENGTH OF MATERIAL REQUIRED :- ";D;" MM"
  9. 90 PRINT "START OF BENDS FROM CENTER OF ELEMENT :- ";A/4;"  MM."
  10. 100 PRINT :PRINT :PRINT :PRINT
  11. 110 INPUT "ANOTHER CALCULATION Y = YES     N = NO " ;X$
  12. 120 IF X$= "N" THEN RUN "MENU"
  13. 130 IF X$="Y" GOTO 10
  14. 140 GOTO 110
  15.